home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / sinus demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  481b  |  25 lines
  1. 100 REM DEMO 1
  2. 105 GCL
  3. 107 X2=0:Y2=47
  4. 110 FOR X = 0 TO 318
  5. 114 X1=X
  6. 116 Y1=SIN(X/319*4*(null))*47+47
  7. 120 SET,X1,Y1
  8. 130 SET,X1+1,Y1
  9. 140 SET,X1,Y1+1
  10. 150 SET,X1+1,Y1+1
  11. 160 NEXT
  12. 170 LINE,0,47,319,47
  13. 180 LINE,0,48,319,48
  14. 190 FOR X = 0 TO 319 STEP 16
  15. 200 LINE,X,45,X,50
  16. 210 NEXT
  17. 220 CHAR,1,0,"[213]=SIN(WT)*[213]M",0
  18. 225 IRQ
  19. 230 PRINT"SPANNUNG AN DEN ENDEN EINER ROTIERENDEN SCHLEIFE"
  20. 240 PRINT"   U(MAX)= +14,3 V"
  21. 250 PRINT"   U(MIN)= -14,3 V"
  22. 260 PRINT"   W     =   2[255](1/T)"
  23. 280 PRINT"   T     =   0,1 S"
  24. 290 PRINT"   B     =   0,5 T"
  25.